%include api.inc %/include
%code
var
ADs: TDBXOMClientDataSet;
begin
ADs := Catalog.NewDataSet;
ADs.CommandText := 'select * from idUser where GUID = ''' + Request.Params.Values['GUID'] + ''' ';
ADs.Open;
if (not ADs.Eof) then
begin
ADs.Edit;
ADs.FieldByName('idProtected').Value := 0; // allow access
ADs.UpdateBatch ('idUser', 'GUID', arAll);
result := 'User ' + ADs.FieldByName('FullUserName').Value + ' is validated to access the web service';
// send out an e-mail
SendShortEMail (
'%var:SMTPHost',
'%var:AdminEMail',
ADs.FieldByName('EMailAddress').Value,
'',
'',
'Your access request for %var:Homepage',
'Hello,' +
'Your request to access %var:Homepage is now approved.' +
'
Click here to visit'
);
end
else
result := 'User not found'
ADs.Close;
ADs.Free;
end;
%/code